home *** CD-ROM | disk | FTP | other *** search
/ Nothing but GIFs AGA / Nothing But GIFs.iso / utility / pc-dos / gifv501.arj / GIFV.SLG < prev    next >
Text File  |  1993-10-11  |  1KB  |  48 lines
  1. ;
  2. ; GIFV.SLG
  3. ; This script shows how to use the color altering effects.
  4. ; F:\CINDY8.GIF is loaded then the red level is increased 25 times
  5. ; Then the Green level is increased 25 times.
  6. ; Then the Blue level is increased 25 times.
  7. ; Then the colors are reset to normal.
  8. ; By the way, this script also shows you how to use variables
  9. ; At the end the picture is held for 5 seconds, then a DIR of
  10. ; drive C:\ is done with the SYSTEM command. Then a SHELL to DOS is
  11. ; performed.
  12. ;
  13. : NOTE: The TEXT command was used so that you could see what the DIR
  14. ;       of Drive C:\ looks like. If you keep the screen in graphics
  15. ;       mode and do a DOS command that prints to your screen, you
  16. ;       might NOT like the appearance.
  17. ;
  18.         set v1 1
  19.         load f:\cindy8.gif
  20. :loop1
  21.         more-red
  22.         set v1 +
  23.         if v1>25 :exit1
  24.         goto :loop1
  25. :exit1
  26.         set v1 1
  27. :loop2
  28.         more-green
  29.         set v1 +
  30.         if v1>25 :exit2
  31.         goto :loop2
  32. :exit2
  33.         set v1 1
  34. :loop3
  35.         more-blue
  36.         set v1 +
  37.         if v1>25 :exit3
  38.         goto :loop3
  39. :exit3
  40.         reset-colors
  41.         Wait 500
  42.         Text
  43.         system dir c:\
  44.         Wait 200
  45.         system
  46.         beep
  47.  
  48.